home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 December / DPPCPRO1205.ISO / Essentials / Programming / Basic4GL / Setup Basic4GL v2.3.1.exe / $INSTDIR / Programs / WriteFileDemo.gb < prev   
Encoding:
Text File  |  2005-07-29  |  201 b   |  6 lines
  1. dim file
  2. file = OpenFileWrite ("Files/Test.txt")
  3. if FileError () <> "" then print FileError (): end endif
  4. WriteLine (file, "Here is some text")
  5. WriteLine (file, "Have a nice day")
  6. CloseFile (file)